home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / swbgrad / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-22  |  3.5 KB  |  114 lines
  1. VERSION 5.00
  2. Object = "{AD224A25-CA55-11D2-8C26-444553540001}#2.1#0"; "SWBGradient.ocx"
  3. Begin VB.Form Form1 
  4.    AutoRedraw      =   -1  'True
  5.    Caption         =   "Gradient Control Demo"
  6.    ClientHeight    =   2970
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   4230
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2970
  12.    ScaleWidth      =   4230
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin SWBGradientCtl.SWBGradient SWBGradient1 
  15.       Left            =   3570
  16.       Top             =   2460
  17.       _ExtentX        =   423
  18.       _ExtentY        =   423
  19.       StartColor      =   16711680
  20.       EndColor        =   4194304
  21.    End
  22.    Begin VB.CommandButton cmdOrientation 
  23.       Caption         =   "&Change Orientation"
  24.       Height          =   345
  25.       Left            =   1140
  26.       TabIndex        =   5
  27.       Top             =   2070
  28.       Width           =   1965
  29.    End
  30.    Begin VB.HScrollBar HScroll1 
  31.       Height          =   225
  32.       LargeChange     =   2
  33.       Left            =   930
  34.       Max             =   255
  35.       Min             =   1
  36.       TabIndex        =   1
  37.       Top             =   1230
  38.       Value           =   50
  39.       Width           =   2385
  40.    End
  41.    Begin VB.Label Label4 
  42.       AutoSize        =   -1  'True
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Max"
  45.       ForeColor       =   &H00FFFFFF&
  46.       Height          =   195
  47.       Left            =   2970
  48.       TabIndex        =   4
  49.       Top             =   1500
  50.       Width           =   300
  51.    End
  52.    Begin VB.Label Label3 
  53.       AutoSize        =   -1  'True
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "Min"
  56.       ForeColor       =   &H00FFFFFF&
  57.       Height          =   195
  58.       Left            =   930
  59.       TabIndex        =   3
  60.       Top             =   1500
  61.       Width           =   255
  62.    End
  63.    Begin VB.Label Label2 
  64.       AutoSize        =   -1  'True
  65.       BackStyle       =   0  'Transparent
  66.       Caption         =   "Steps"
  67.       ForeColor       =   &H00FFFFFF&
  68.       Height          =   195
  69.       Left            =   1860
  70.       TabIndex        =   2
  71.       Top             =   1500
  72.       Width           =   405
  73.    End
  74.    Begin VB.Label Label1 
  75.       Alignment       =   2  'Center
  76.       AutoSize        =   -1  'True
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "Sample Gradient Control Project"
  79.       BeginProperty Font 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       ForeColor       =   &H00FFFFFF&
  89.       Height          =   255
  90.       Left            =   780
  91.       TabIndex        =   0
  92.       Top             =   660
  93.       Width           =   2715
  94.    End
  95. Attribute VB_Name = "Form1"
  96. Attribute VB_GlobalNameSpace = False
  97. Attribute VB_Creatable = False
  98. Attribute VB_PredeclaredId = True
  99. Attribute VB_Exposed = False
  100. Option Explicit
  101. Private Sub cmdOrientation_Click()
  102.     If (SWBGradient1.Orientation = goVertical) Then
  103.         SWBGradient1.Orientation = goHorizontal
  104.     Else
  105.         SWBGradient1.Orientation = goVertical
  106.     End If
  107. End Sub
  108. Private Sub Form_Resize()
  109.     SWBGradient1.Refresh
  110. End Sub
  111. Private Sub HScroll1_Change()
  112.     SWBGradient1.Steps = HScroll1.Value
  113. End Sub
  114.